home *** CD-ROM | disk | FTP | other *** search
/ Cream of the Crop 1 / Cream of the Crop 1.iso / UTILITY / TASEXAM6.ARJ / BETA.TAS < prev    next >
Text File  |  1991-10-26  |  592b  |  22 lines
  1. #index 'sp-500'
  2. #output_file beta.lst
  3. #MAX_QUOTES 260
  4. if quote_count >= 260 then
  5. begin
  6.     wBeta = beta('w');
  7.     wAlpha = alpha();
  8.     sortout(ticker,fullname,wBeta,wAlpha);
  9.     tickCount = tickCount + 1;
  10.     totalBeta = totalBeta + wBeta;
  11.     totalAlpha = totalAlpha + wAlpha;
  12. end;
  13. if last_ticker = 0 then return;
  14. sorton(3,'d');
  15. writeln  ('TICKER   COMPANY/SECURITY   BETA  ALPHA');
  16. sortprint('%s %s %6.2f %6.2f\n');
  17. writeln();
  18. writeln(' Total tickers ',int(tickCount));
  19. writeln(' Average Beta  ',totalBeta/tickCount);
  20. writeln(' Average Alpha ',totalAlpha/tickCount);
  21.  
  22.